﻿
Partial Class Form_frmAMLOForm
    Inherits System.Web.UI.Page

  

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.AddHeader("Cache-control", "no-store, must-revalidate, private,no-cache")
        Response.AddHeader("Pragma", "no-cache")
        Dim strRptType As String = Request.Item("RptType")
        Dim strRptSeq As String = Request.Item("RptSeq")
        Dim strRptIdx As String = Request.Item("RptIdx")
        Dim strSql As String = ""


        If Not (IsPostBack) Then
            'Me.ReportViewer1.LocalReport.ReportPath = "Form\report\rptMenuRight.rdlc"
            'Dim a As New Microsoft.Reporting.WebForms.ReportDataSource
            'a.DataSourceId = "sqldtsMaster"
            'a.Name = "dsMenuRight"
            'Me.ReportViewer1.LocalReport.DataSources.Add(a)


            strSql = "SELECT     AMLO101.RPTSEQ, AMLO101.GHBCODE, AMLO101.RPTTYPE, AMLO101.RPTYEAR, AMLO101.RPTNO, AMLO101.RPTREV, AMLO101.BRANCHCODE, AMLO101.DEPTCODE, AMLO101.RPTDATE, AMLO101.TRANSDATE, AMLO101.TRANSTYPE, AMLO101.TRANSTYPEOTHER, AMLO101.ACCOUNTNO, AMLO101.ACCOUNTREF, AMLO101.TRANSAMT, AMLO101.CURRENCY, AMLO101.TRANSAMTCHAR, AMLO101.GAINPREFIX, AMLO101.GAINFIRSTNAME, AMLO101.GAINMIDNAME, AMLO101.GAINLASTNAME, AMLO101.OBJBIZ, AMLO101.OBJBIZOTHER, AMLO101.REASON, AMLO101.SAVETYPE, AMLO101.SAVEDATE, AMLO101.FINANORGCODE, AMLO101.SIGNTYPE, AMLODETAIL101.RPTIDX, AMLODETAIL101.RPTTYPE AS EXPR1, AMLODETAIL101.RPTIDXTYPE, AMLODETAIL101.UNIQUETYPE, AMLODETAIL101.UNIQUEID, AMLODETAIL101.PREFIX, AMLODETAIL101.FIRSTNAME, AMLODETAIL101.MIDNAME, AMLODETAIL101.LASTNAME, AMLODETAIL101.FORMALADDR,AMLODETAIL101.FORMALPHONE, AMLODETAIL101.FORMALFAX, AMLODETAIL101.OCCUPATIONTYPE,AMLODETAIL101.OCCUPATIONTYPEOTHER, AMLODETAIL101.WORKADDR, AMLODETAIL101.WORKPHONE, AMLODETAIL101.WORKFAX, AMLODETAIL101.BIZTYPE, AMLODETAIL101.BIZTYPEOTHER, AMLODETAIL101.CONTACTADDR, AMLODETAIL101.CONTACTPHONE, AMLODETAIL101.CONTACTFAX, AMLODETAIL101.CUSTIDTYPE, AMLODETAIL101.CUSTIDTYPEOTHER, AMLODETAIL101.CUSTID, AMLODETAIL101.EVBY, AMLODETAIL101.EVGEN, AMLODETAIL101.EVGENTEXT, AMLODETAIL101.EVEXPIRE, AMLODETAIL101.EVEXPIRETEXT FROM      " & System.Configuration.ConfigurationSettings.AppSettings("TableAMLO101") & "   INNER JOIN                       " & System.Configuration.ConfigurationSettings.AppSettings("TableAMLODETAIL101") & " ON AMLO101.RPTSEQ = AMLODETAIL101.RPTSEQ where AMLO101.RPTSEQ =1"
        End If
        If Not (strSql = "") Then
            With sqldtsAMLOForm
                .SelectCommand = strSql
            End With

        End If

    End Sub
End Class
